(defun c:fall () ;;defines name of command routine fillet - all
;;error handler omitted here
;;http://forums.cadalyst.com/showthread.php?t=4495
(initget 1);;disallow null entry
(setq Frad (getreal "\nRadius for fillets: "));;what it says
(setvar "FILLETRAD" Frad);; sets fillet radius
(setq PolySet (ssget "_X" '((0 . "LWPOLYLINE"))));;selects all lw polylines
(command "._pedit" "_M" Polyset "" "_J" "0.0001" "");;delete for no join
(setq PolySet (ssget "_X" '((0 . "LWPOLYLINE"))));;selects all lw polylines, delete for no join
(setq Count 0);;counter for set items
(repeat (sslength PolySet);;step through polylines in set
	(setq Polyname (ssname PolySet Count));;reteieves polyline handle
	(command "._FILLET" "_P" Polyname);;fillets polyline
	(setq Count (1+ Count));;increment counter
);;end of repeat
(princ);;suppress echo/clean exit
);;end of defun
(princ "\nType FALL to start");;reminder upon loading[/QUOTE] 